home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / disk / cdrom / YACDP1_2.lha / YACDP 1.2 / AREXX / UpsideDown.yacdp < prev    next >
Text File  |  1994-12-05  |  881b  |  34 lines
  1. /* $VER: 1.2 © 1994 by Frank Würkner. Play songs in reverse order.         */
  2.  
  3. SIGNAL ON SYNTAX                            /* check syntax                */
  4. SIGNAL ON ERROR                             /* check if command succeeds   */
  5. OPTIONS FAILAT 6                            /* ignore warnings             */
  6. ADDRESS 'YACDP'                             /* send to YACDP               */
  7.  
  8. /* -------------------------- BEGIN OF YOUR CODE ------------------------- */
  9.  
  10. 'GETVAR STATUS'
  11.  
  12. if (STATUS > 2) then do
  13.   'GETVAR MAXTRACK'
  14.   pl='*'
  15.   do i=MAXTRACK to 1 by -1
  16.     pl=pl || i
  17.     if (i ~= 1) then
  18.       pl=pl || ','
  19.   end
  20.   'PUTVAR PLAYMODE=2'
  21.   'PUTVAR PROGRAMLIST='pl
  22. end
  23.  
  24. /* --------------------------- END OF YOUR CODE -------------------------- */
  25. EXIT
  26.  
  27. SYNTAX:
  28. SAY "AREXX error at line" SIGL ":" ERRORTEXT(RC)
  29. EXIT
  30.  
  31. ERROR:
  32. SAY "YACDP error at line" SIGL ":" ERR
  33. EXIT 
  34.